Option Explicit
Sub N_Sample006()
    Dim myStr As String
    myStr = "N_Sample006_1"
    Application.Run "N_Sample006_1", myStr
End Sub

'QIsX{
Sub N_Sample006_1(myStr As String)
    MsgBox myStr
End Sub
